module Main (main) where

import SimpleJSON
import PutJSON

main = do
   let json = (JObject [("foo", JNumber 1), ("bar", JBool False)])
   print json
   putJValue json


